home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00065_SinglePointColor.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.6 KB  |  123 lines
  1. --
  2. -- SinglePointColor
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag
  13.  
  14. --JCODE
  15. global gUI
  16.  
  17.  
  18. on new me
  19.   -- initialize constants:
  20.   set delaySecs = 1
  21.   
  22.   set ancestor = new (script "SinglePointPusher")
  23.   
  24.   set responseFlag = TRUE
  25.   
  26.   -- add (the actorList, new (script "ObjectUpdater", me))
  27.   return me
  28. end
  29.  
  30.  
  31. on destruct me
  32.   if objectP (ancestor) then destruct (ancestor)
  33.   set ancestor = 0
  34. end
  35.  
  36.  
  37. on noResponse me
  38.   set responseFlag = FALSE
  39. end
  40.  
  41.  
  42. on initializeRound me
  43.   hideDraggables (me)
  44.   initializeRound (ancestor)
  45.   showDraggables (me)
  46.   pushOffDraggables (me)
  47.   initHandCursor ("hand", getDraggableList (me))
  48.   initPlay (me)
  49. end
  50.  
  51.  
  52. on mouseDown me, spr
  53.   if not isDraggable (me, spr) then return 0
  54.   
  55.   -- drag until release:
  56.   set testSpr = dragSprite (me, spr)
  57.   if testSpr = -1 then return 1  -- drag ended in starting position (exactly)
  58.   
  59.   -- on release of the mouse
  60.   -- check to see if the sprite is overlapping the correct container:
  61.   
  62.   set matchSprite = checkMatch (me, spr, testSpr)
  63.   hideUnderSprite (me)
  64.   
  65.   if matchSprite then
  66.     -- if a match, snap the draggable to position and stick it there.
  67.     snapToPosition (me, spr, matchSprite)
  68.     hideDraggable (me, spr) -- showDraggable (me, spr)  --stickDraggable (me, spr)
  69.     hideTarget (me, matchSprite)
  70.     
  71.     --set the backColor of sprite matchSprite to the foreColor of sprite spr
  72.     --updateStage
  73.     
  74.     moveOffScreen (me, matchSprite)
  75.     
  76.     -- play the good response sound 
  77.     if responseFlag then playResponseSound(1, 1)
  78.     -- play the proper "ID" sound
  79.     playSprite (gUI, spr, #ID)
  80.     
  81.     -- move a bar graph if one has been set up:
  82.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  83.     
  84.     if not done (me) then 
  85.       initPlay (me)
  86.     end if
  87.     
  88.   else
  89.     showDraggable (me, spr)
  90.     -- if no match, then move it back to it's starting position:
  91.     playResponseSound(0, 1)
  92.   end if
  93.   
  94.   return 1
  95. end
  96.  
  97.  
  98. -- initialize an individual play:
  99.  
  100. on initPlay me
  101.   set activeSpr = pushOnDraggable (me)
  102.   makePictLink (me, activeSpr)
  103.   -- play the intro sound by sprite...
  104.   playSprite (gUI, activeSpr, #prompt)
  105.   initHandCursor ("hand", getDraggableList (me))
  106. end
  107.  
  108.  
  109.  
  110. -- check to see if we are done.  
  111. -- if so, then do an action.
  112.  
  113. on done me
  114.   clearPictLink (me)
  115.   if checkDone (me) then 
  116.     wait (me, delaySecs)
  117.     go "finish"
  118.     unloadCast (me)
  119.     return 1
  120.   else
  121.     return 0
  122.   end if
  123. end